10 REM *************************
20 REM * ANSTEUERUNG VON MOTOR *
30 REM *  UND/ODER GLUEHBIRNE  *
40 REM *************************
45 :
50 B$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
51 PRINT"[147]          111111"
52 PRINT"0123456789012345"
53 PRINT"[171][219]";RIGHT$(B$,16)
54 PRINT"BEDIENUNG DES SCHIEBEREGLERS MIT DEN    CURSORTASTEN"
60 POKE56579,15
70 I=0
80 GETA$:IF A$=""THEN80
90 IF A$=""THENI=I-1
100 IFA$=""THENI=I+1
110 IFI>15THENI=15
112 IFI<0THENI=0
120 POKE56577,I
130 PRINT""LEFT$(B$,I+1);"[219]";RIGHT$(B$,16-I)
140 GOTO80